
R version 3.5.1 (2018-07-02) -- "Feather Spray"
Copyright (C) 2018 The R Foundation for Statistical Computing
Platform: x86_64-apple-darwin15.6.0 (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

  Natural language support but running in an English locale

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

[?1034h> source("figures.R)[K")
[1m── Attaching packages ─────────────────────────────────────── tidyverse 1.3.0 ──
[0m[1m✔ ggplot2 3.2.1     ✔ purrr   0.3.3
✔ tibble  2.1.3     ✔ dplyr   0.8.3
✔ tidyr   1.0.0     ✔ stringr 1.4.0
✔ readr   1.3.1     ✔ forcats 0.4.0
[0m[1m── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
[0m[1m
Attaching package: ‘arabicStemR’

[0m[1mThe following object is masked from ‘package:graphics’:

    stem

[0m[1m
Attaching package: ‘lubridate’

[0m[1mThe following object is masked from ‘package:base’:

    date

[0m[1mPackage version: 1.3.14
[0m[1mParallel computing: 2 of 4 threads used.
[0m[1mSee https://quanteda.io for tutorials and examples.
[0m[1m
Attaching package: ‘quanteda’

[0m[1mThe following object is masked from ‘package:utils’:

    View

[0m[1mstm v1.3.3 (2018-1-26) successfully loaded. See ?stm for help. 
 Papers, resources, and other materials at structuraltopicmodel.com
[0m[1mLoading required package: magrittr
[0m[1m
Attaching package: ‘magrittr’

[0m[1mThe following object is masked from ‘package:purrr’:

    set_names

[0m[1mThe following object is masked from ‘package:tidyr’:

    extract

[0mJoining, by = "topic"
`mutate_if()` ignored the following grouping variables:
Column `week`
Joining, by = "date"
[1mWarning messages:
[0m[1m1: package ‘tidyverse’ was built under R version 3.5.2 
[0m[1m2: package ‘ggplot2’ was built under R version 3.5.2 
[0m[1m3: package ‘tibble’ was built under R version 3.5.2 
[0m[1m4: package ‘tidyr’ was built under R version 3.5.2 
[0m[1m5: package ‘purrr’ was built under R version 3.5.2 
[0m[1m6: package ‘dplyr’ was built under R version 3.5.2 
[0m[1m7: package ‘stringr’ was built under R version 3.5.2 
[0m[1m8: package ‘forcats’ was built under R version 3.5.2 
[0m> q()
Save workspace image? [y/n/c]: n
